home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / Hot Demos! / DroidWorks demo / dwCD.gob / mission_cog_b0_gear.cog < prev    next >
Text File  |  1998-09-17  |  19KB  |  558 lines
  1. # Droids Cog Script
  2. #
  3. # b0_Gear.cog
  4. #
  5. # Gear Cog controlling movement of the bridge and gears assmebly. 
  6. #
  7. # Desc:
  8. #     bin 25    Small Gears
  9. #     bin 26    Medium Gear
  10. #     bin 27     Large Gear
  11. # 
  12. #    This cog is responsible for keeping track of what gears are in the Gear assembly 
  13. #    and where. It's also in charge of mocing the bridge either up or down depending on 
  14. #    how the gears are in place. There are seperate cogs for the gear pieces themselves
  15. #    when found on the ground. After they've been placed in the gear assembly, they're 
  16. #    part of this script.
  17. #           
  18. #
  19. # 10/23/97 [DGS]    Created 
  20. # 01/19/97 [DGS]    Updated for new controls.    
  21. # 01/21/97 [DGS]    Rewrote majority of it; added new Used and Taken sections       
  22. # ========================================================================================
  23.  
  24. symbols
  25. message        used
  26. message        startup        
  27. message        arrived
  28. message        user0
  29. message        taken
  30. message        timer        
  31.  
  32. ## ================Parts    
  33. thing        screw0        linkid=11 
  34. thing        screw1         linkid=11
  35. thing        screw2        linkid=11
  36. thing        screw3        linkid=11
  37. thing        gear_top    linkid=11
  38. thing        gear_bot    linkid=11
  39. thing        platform    linkid=3 
  40. thing        spind        linkid=11
  41. surface        Button0        linkid=2
  42.  
  43. ## ==================Ghost objects
  44. thing        l_spindle_g        linkid=30  
  45. thing        r_spindle1_g    linkid=31  
  46. thing        r_spindle2_g    linkid=32  
  47.  
  48. ## ===================Ghost creation integers
  49. int        l_spindle_i=0      linkid=11        local
  50. int        r_spindle1_i=0                    local
  51. int        r_spindle2_i=0                    local
  52.  
  53. ## ====================Spin Directon integers
  54. flex        l_spindle_d=0.0        local
  55. flex        r_spindle1_d=0.0    local
  56. flex        r_spindle2_d=0.0    local
  57. flex        t_gear_d=0.0        local
  58.  
  59. ## =====================templates
  60. template    gear_large_t    
  61. template    gear_small_t
  62. template    gear_med_t
  63.  
  64. ## ======================Sectors
  65. sector        L_Sector    
  66. sector         R_sector
  67.  
  68. ## ======================Sounds
  69. sound        gearon_snd
  70. sound        gearongfsdfsf_snd
  71. sound        gearoff_snd
  72. sound        mstart_snd
  73. sound        mstop_snd
  74. sound        mfree_snd
  75. sound        mstress_snd
  76. sound        gearbog_snd
  77.  
  78. ## ======================Cogs
  79. cog        button_cog
  80.  
  81. thing    ghost_cam
  82. int        l_spindle_m=0        local
  83. int        r_spindle1_m=0        local
  84. int        r_spindle1_m=0        local
  85.  
  86.  
  87.  
  88. ## ======================Internal variables 
  89. float    speed=2.0            local
  90. int        on_button=0            local
  91. int        rotate                local
  92. int        l_spindle=0            local
  93. int        r_spindle1=0        local
  94. int        r_spindle2=0        local
  95. int        timermode=0            local
  96. int        part_id=0            local
  97. int        g_sound=0            local
  98. end
  99. # ========================================================================================
  100.  
  101. code
  102.                
  103. startup:
  104.     // 
  105.     //print("rotate it");
  106.     //rotate = 1;
  107.     //l_spindle_d     =     1;
  108.     //r_spindle1_d    =     -0.5;
  109.     //r_spindle2_d    =      0.5;
  110.         //call rotate_gears;
  111.     
  112.     
  113.     AttachThingToThing(screw0, gear_top);
  114.     AttachThingToThing(screw1, gear_top);
  115.     AttachThingToThing(screw2, gear_top);
  116.     AttachThingToThing(ghost_cam, platform);
  117.     //AttachThingToThing(screw3, screw0);
  118.     
  119.     MoveToFrame(platform, 1, 50);
  120.     //RotatePivot(screw0, 1, 1);
  121.  
  122.     sleep(5);
  123.     print("Gear mode:");
  124.     printint(screw0);
  125.     printint(screw1);
  126.     printint(screw2);
  127.  
  128.     return;
  129.  
  130. # ........................................................................................
  131. user0:
  132.         // User0 gets called when the player hits the motor switch. See gear_activate.cog 
  133.         print("user0");
  134.         if (rotate == 0) call start_motor;
  135.     return;
  136. used:
  137.     //    Section is executed when the user uses an inventory object. Cool. 
  138.     print("USED:");
  139.     printint(dwGetActivateBin());
  140.     printint(getsenderid());
  141.     if (rotate == 0)
  142.         {
  143.         if ( getinv(getlocalplayerthing(),dwGetActivateBin()) > 0) //if the bin has more than 0 in it; 
  144.             {
  145.             if ((GetSenderId() == 11) || (getsenderref() == r_spindle1_i) || (getsenderref() == r_spindle2_i)) // It's used on the gear_bot    
  146.                 {
  147.                 //    The Gear Assembly was activated
  148.                 if (getthingsector(getlocalplayerthing()) == l_sector) 
  149.                     {
  150.                     //=================== Player is on the Large gear side of the gear assembly
  151.                     print("Activated L sector");
  152.                     call handle_l;
  153.                     }
  154.                     
  155.                 if (getthingsector(getlocalplayerthing()) == r_sector) 
  156.                     {
  157.                     //=================== Player is on the Small gear side of the gear assembly
  158.                     print("Activated R sector");
  159.                     call handle_r;
  160.                     }
  161.                 }
  162.             }
  163.         }
  164.     return;
  165.  
  166.  
  167. taken:
  168.     print("taken");
  169.     printint(r_spindle1_i);
  170.         printint(r_spindle2_i);
  171.     printint(getsenderref());
  172.     printint ((GetSenderId() == 11) || (getsenderref() == r_spindle1_i) || (getsenderref() == r_spindle1_i));
  173.  
  174.     // Taken gets called when the user attempts to take a gear from left or right of the gear assembly.    
  175.         if (rotate == 0)
  176.         {
  177.         if ((GetSenderId() == 11)) // if it's the gear_bot that got activated    
  178.             {
  179.             print("Inside");
  180.             //    The Gear Assembly was activated
  181.             if (getthingsector(getlocalplayerthing()) == l_sector) 
  182.                 {
  183.                 //=================== Player is taking stuff from the left side of the gear assembly
  184.                 if (l_spindle != 0)
  185.                     {
  186.                     // inc the bin to add it back to the inv, destroy the environment one ans set l_spindle to 0.
  187.                     ChangeInv(getlocalplayerthing(), l_spindle, 1);
  188.                     destroything(l_spindle_i);
  189.                     l_spindle = 0;        
  190.                     //dwSetPlayerMass(dwGetPlayerMass() + l_spindle_m);
  191.                     l_spindle_m = 0;
  192.                     
  193.                     call update_bins;
  194.                     PlaySoundThing(gearoff_snd, l_spindle_g, 1, -1, -1, 0);  
  195.                     }
  196.                 else
  197.                     {
  198.                     // TELL THE PLAYER THERE'S NOTHING TO TAKE
  199.                     dwPlayCammySpeech(17305, "t9ca006.wav", 10, 0);
  200.                     timermode = 2;
  201.                     settimer(10);
  202.                     }
  203.                 }
  204.                 
  205.             if (getthingsector(getlocalplayerthing()) == r_sector) 
  206.                 {
  207.                 //=================== Player is on the Small gear side of the gear assembly
  208.                 if (r_spindle1 != 0)    //if the top spindle (1) has something on it.
  209.                     {
  210.                     // inc the bin to add it back to the inv, destroy the environment one ans set r_spindle1 to 0.
  211.                     ChangeInv(getlocalplayerthing(), r_spindle1, 1);
  212.                     //releasething(r_spindle1_i);
  213.                     destroything(r_spindle1_i);
  214.                     r_spindle1 = 0;        
  215.                     //dwSetPlayerMass(dwGetPlayerMass() + r_spindle1_m);
  216.                     r_spindle1_m - 0;
  217.                     
  218.                     call update_bins;
  219.                     PlaySoundThing(gearoff_snd, r_spindle1_g, 1, -1, -1, 0);  
  220.                     }
  221.                 else if (r_spindle2 != 0)    //if the bottom spindle (2) has something on it
  222.                     {
  223.                     // inc the bin to add it back to the inv, destroy the environment one ans set r_spindle2 to 0.
  224.                     ChangeInv(getlocalplayerthing(), r_spindle2, 1);
  225.                     //releasething(r_spindle2_i);
  226.                     destroything(r_spindle2_i);
  227.                     r_spindle2 = 0;        
  228.                     //dwSetPlayerMass(dwGetPlayerMass() + r_spindle2_m);
  229.                     r_spindle2_m - 0;
  230.                     PlaySoundThing(gearoff_snd, r_spindle1_g, 1, -1, -1, 0);  
  231.                     call update_bins;
  232.                     }
  233.                 else     //else there's nothing on this side. Both spindles are empty.
  234.                     {
  235.                     dwPlayCammySpeech(17305, "t9ca006.wav", 10, 0);  //There's nothing to take
  236.                     timermode = 2;
  237.                     settimer(10);
  238.                     }
  239.                 }
  240.             }
  241.         }
  242.     return;
  243. grind_gears:
  244.         // Controls causing the grind sound .
  245.         garbage = PlaySoundThing(gearbog_snd, gear_bot, 1, -1, -1, 0);
  246.         dwPlayCammySpeech(17313, "t9ca014.wav", 10, 0);
  247.         timermode = 3;
  248.         settimer(1);
  249.     return;
  250.  
  251. start_motor:
  252.     if ( (l_spindle == 27) && (r_spindle1 == 25) && (r_spindle2 == 25) )        // if all the grears are in place
  253.         {
  254.         r_spindle2_d    = 0;
  255.         r_spindle1_d     = 0;
  256.         l_spindle_d     = 0;
  257.         // 
  258.         call grind_gears;
  259.         }
  260.     else    // Else set up the way it's all gonna spin
  261.         { // +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Set motion/direction
  262.         t_gear_d = 0; //Assume that if the top gear is going to move, the below lines will set it that way.
  263.         // These if/else statements set up the speeds and directions for the gears on the 3 spindles. 
  264.         if (l_spindle == 27)//if it's the large gear in the left spindle  
  265.             {
  266.             l_spindle_d = -1; //set the direction to -0.5
  267.             t_gear_d = -0.5; //set the top gears direction. 
  268.             }
  269.         else l_spindle_d = 0;// else set the gears speed to 0, since md. and sm. gears don't touch the upper and lower gears when they're on the left.
  270.         
  271.         if (r_spindle2 == 25) 
  272.             {
  273.             r_spindle2_d = 0.5;// if the sm. gear is on the lower spindle then set its speed and dirction 
  274.             }
  275.         else r_spindle2_d = 0;// else set the gears speed to 0, since the sm. gear is the only one that can go on the lower spindle
  276.         
  277.         if ((r_spindle1 == 25) && (r_spindle2 == 25)) //if the upper gear is there and the lower gear is there 
  278.             {
  279.             r_spindle1_d = -0.5;// 
  280.             t_gear_d = 0.5; //set the top gears direction to move the platform up. 
  281.             }
  282.         else if ((r_spindle1 == 25) && (l_spindle == 27)) r_spindle1_d = 0.5;// if the lower gear and the lg. gear is there then set the speed.
  283.         else r_spindle1_d = 0;//else it's not going to spin when the switch is pulled.
  284.            
  285.  
  286.         printint(r_spindle2);
  287.         printflex(r_spindle2_d);
  288.         
  289.         if (t_gear_d > 0) //if the top gear is connected to the lower gear and spinning up 
  290.             {
  291.             if (GetCurFrame(platform) > 0) //if the platform's not already at the top
  292.                 {
  293.                 MoveToFrame(platform, GetCurFrame(platform)-1, speed);    //move the platform up
  294.                 dwPlayCammySpeech(17302, "t9ca004.wav", 10, 0);
  295.                 garbage = PlaySoundThing(mstart_snd, gear_bot, 1, -1, -1, 0);
  296.                 g_sound = PlaySoundThing(mstress_snd, gear_bot, 1, -1, -1, 1);
  297.                 
  298.                 call rotate_gears;
  299.                  timermode = 4;
  300.                 settimer(2);
  301.                 
  302.    
  303.                 }
  304.             else // else make the grinding sound
  305.                 {
  306.                 call grind_gears;
  307.                 }
  308.             }
  309.         else if (t_gear_d < 0) //else if the top gear is connected to the lower gear and spinning down 
  310.             {
  311.             if (GetCurFrame(platform) < 2) //if the platform's not already at the bottom
  312.                 {
  313.                 MoveToFrame(platform, GetCurFrame(platform)+1, speed);    //move the platform down
  314.                 dwPlayCammySpeech(17302, "t9ca004.wav", 10, 0);
  315.                 garbage = PlaySoundThing(mstart_snd, gear_bot, 1, -1, -1, 0);
  316.                 g_sound = PlaySoundThing(mstress_snd, gear_bot, 1, -1, -1, 1);
  317.                 
  318.                 call rotate_gears;
  319.                 timermode = 4;
  320.                 settimer(2);
  321.                 }
  322.             else // else make the grinding sound
  323.                 {
  324.                 call grind_gears;
  325.                 }
  326.             }
  327.         else    // else top Gear's not connected; spin the bottom  
  328.             {
  329.             //SET THE TIME
  330.             timermode = 1;// Timermode tells the timer what to do when it's called. 
  331.             settimer(10);
  332.             dwPlayCammySpeech(17315, "t9ca016.wav", 10, 0);
  333.             garbage = PlaySoundThing(mstart_snd, gear_bot, 1, -1, -1, 0);
  334.             g_sound = PlaySoundThing(mfree_snd, gear_bot, 1, -1, -1, 1);
  335.  
  336.             call rotate_gears;
  337.             }
  338.         }  
  339.     return;
  340.  
  341. rotate_gears:
  342.     //This routine starts the gears a spinnin'. After they're goin', continue_gears is used to keep the thing spinning.
  343.     rotate = 1;
  344.     //RotatePivot(screw0, 1, 1);
  345.     RotatePivot(gear_bot,         1,     0.5);
  346.     print("Rotates!");
  347.     printint(l_spindle_d);
  348.     if (!(l_spindle_d == 0.0))     RotatePivot(l_spindle_i,     1,     l_spindle_d);
  349.     if (!(r_spindle1_d == 0.0))    RotatePivot(r_spindle1_i,     1,     r_spindle1_d);
  350.     if (!(r_spindle2_d == 0.0))     RotatePivot(r_spindle2_i,       1,      r_spindle2_d);                                                                       
  351.         if (!(t_gear_d == 0.0))        RotatePivot(gear_top,         1,     t_gear_d);
  352.     return;
  353.  
  354.     
  355. continue_gears:
  356.     printint(getsenderid());
  357.         if (!(l_spindle_d == 0.0))     RotatePivot(l_spindle_i,     1,     l_spindle_d);
  358.     if (!(r_spindle1_d == 0.0))    RotatePivot(r_spindle1_i,     1,     r_spindle1_d);
  359.     if (!(r_spindle2_d == 0.0))     RotatePivot(r_spindle2_i,       1,      r_spindle2_d);                                                                       
  360.         if (!(t_gear_d == 0.0))        RotatePivot(gear_top,         1,     t_gear_d);
  361.     if (getsenderid() == 11)    RotatePivot(gear_bot,         1,     0.5);
  362.     return;
  363.  
  364. stop_gears:
  365.     //this routine stops all motion of the gears when it's called.       Hopefully. Otherwise, well. Otherwise. 
  366.     stopthing(r_spindle1_i);
  367.     stopthing(l_spindle_i);  
  368.     stopthing(r_spindle2_i);  
  369.     stopthing(gear_top);  
  370.     stopthing(gear_bot);
  371.     rotate = 0;
  372.     sendmessage(button_cog, user0);    
  373.     if (g_sound > 0) 
  374.         {
  375.         stopsound(g_sound,0.1);
  376.         garbage = PlaySoundThing(mstop_snd, gear_bot, 1, -1, -1, 0);  
  377.         }
  378.     timermode = 5;
  379.     settimer(1);
  380.     return;
  381.  
  382. handle_l:
  383.     // handle_l is used to put gears on the left side of the assembly. handle_r is for the right. Taken handles removing gears.
  384.     print("handle_l:");
  385.     if (l_spindle == 0)        //if the spindle is empty
  386.         {
  387.         //============ Add whatever you gots to the spindle
  388.         if ((dwGetActivateBin() > 24) && (dwGetActivateBin() < 94))    // if it's one of the gears that's being used
  389.             {
  390.             // 3 things happen here. First the variable l_spindle is set to the gear that's going to go on the spindle. 
  391.             // The bin number from the gear is used to represent what gear is on the spindle. if l_spindle is set to 0, then 
  392.             // there should be no gear on the spindle. If it's a non-zero number, it represents the present gear's bin number.   
  393.             l_spindle = dwGetActivateBin();
  394.             
  395.             // Next l_spindle is queried to figure out what gear is going to be created. Then it's created    
  396.             if (l_spindle == 25)
  397.                 {
  398.                 print("gear small");
  399.                 l_spindle_i = creatething(gear_small_t, l_spindle_g);
  400.                 l_spindle_m = 160;
  401.                 //dwSetPlayerMass(dwGetPlayerMass() - l_spindle_m);
  402.                 }
  403.             else if (l_spindle == 26)
  404.                 {
  405.                 l_spindle_i = creatething(gear_med_t, l_spindle_g);
  406.                 l_spindle_m = 200;
  407.                 //dwSetPlayerMass(dwGetPlayerMass() - l_spindle_m);
  408.                 print("gear med");
  409.                 }
  410.             else if (l_spindle == 27)
  411.                 {
  412.                 l_spindle_i = creatething(gear_large_t, l_spindle_g);
  413.                 l_spindle_m = 260;
  414.                 //dwSetPlayerMass(dwGetPlayerMass() - l_spindle_m);
  415.                 print("gear large");
  416.                 }
  417.                         // finally we decrement the bin that was activated. 
  418.             PlaySoundThing(gearon_snd, l_spindle_g, 1, -1, -1, 0);  
  419.             ChangeInv(getlocalplayerthing(), l_spindle, -1);
  420.             call update_bins;
  421.                         }
  422.                 }
  423.     else
  424.         {
  425.                 // TELL THE PLAYER THERE'S SOMETHING ON THE SPINDLE ALREADY
  426.         dwPlayCammySpeech(17304, "t9ca005.wav", 10, 0);
  427.         timermode = 2;
  428.         settimer(10); 
  429.         }
  430.         
  431.     return;
  432.  
  433. handle_r:
  434.     // handle_r controls putting gears on the right side of the assemebly. handle_l is the left side. Taken controls removing gears for both l and r. 
  435.     print("handle_r:");
  436.         if (r_spindle2 > 0)        //if the bottom spindle has something on it 
  437.         {
  438.         // check the top spindle 
  439.         if (r_spindle1 > 0)        //if the top spindle has something on it
  440.             {
  441.             // There's gears already here 
  442.             dwPlayCammySpeech(17304, "t9ca005.wav", 10, 0);
  443.             
  444.             timermode = 2;
  445.             settimer(10); 
  446.             }
  447.         else                //else the upper spindle is empty
  448.             {
  449.             //============ This section controls the upper spindle only (r_spindle1). 
  450.             
  451.             if (dwGetActivateBin() == 25)    // if it's the small gear
  452.                 {
  453.                 // check the comments from handle_l for info on the creation process of a gear. Then check with Doug
  454.                 r_spindle1 = dwGetActivateBin();
  455.                 r_spindle1_i = creatething(gear_small_t, r_spindle1_g);
  456.                 //capturething(r_spindle1_i);
  457.                 r_spindle1_m = 160;
  458.                 //dwSetPlayerMass(dwGetPlayerMass() - r_spindle1_m);
  459.                 
  460.                 ChangeInv(getlocalplayerthing(), r_spindle1, -1);
  461.                 PlaySoundThing(gearon_snd, r_spindle1_g, 1, -1, -1, 0);  
  462.                 
  463.                 call update_bins;
  464.                 }
  465.             else    //Else it's not the small gear
  466.                 {
  467.                 if ((dwGetActivateBin() > 25) && (dwGetActivatebin() < 28)) // If it's the med or large gear
  468.                     {
  469.                     dwPlayCammySpeech(17311, "t9ca012.wav", 10, 0);
  470.                     timermode = 2;
  471.                     settimer(10); 
  472.                     }
  473.                 }
  474.             
  475.             }
  476.         }
  477.     else        //else the bottom spindle is empty
  478.         {
  479.         if (dwGetActivateBin() == 25)    // if it's the small gear
  480.             {
  481.             // check the comments from handle_l for info on the creation process of a gear. Then check with Doug
  482.             r_spindle2 = dwGetActivateBin();
  483.             r_spindle2_i = creatething(gear_small_t, r_spindle2_g);
  484.             //capturething(r_spindle2_i);
  485.             r_spindle2_m = 160;
  486.             //dwSetPlayerMass(dwGetPlayerMass() - r_spindle2_m);
  487.             ChangeInv(getlocalplayerthing(), r_spindle2, -1);
  488.             PlaySoundThing(gearon_snd, r_spindle2_g, 1, -1, -1, 0);  
  489.             call update_bins;
  490.             }
  491.         else    //Else it's not the small gear
  492.             {
  493.             if ((dwGetActivateBin() > 25) && (dwGetActivatebin() < 28)) // If it's the med or large gear
  494.                 {
  495.                 dwPlayCammySpeech(17311, "t9ca012.wav", 10, 0);
  496.                 timermode = 2;
  497.                 settimer(10); 
  498.                 }
  499.             }
  500.             
  501.         }
  502.     return;
  503. # ............................................... .........................................
  504. arrived:
  505.     if ((GetSenderId() != 3) && (rotate == 1))
  506.         {
  507.         call continue_gears;
  508.         }
  509.     if (GetSenderId() == 3)
  510.         {
  511.         call stop_gears;
  512.         rotate = 0;
  513.         }
  514.         return;
  515.  
  516. timer:
  517.         if (timermode == 1) //Will turn off the gears.
  518.         {
  519.         call stop_gears;
  520.         rotate = 0;
  521.         sendmessage(button_cog, user0);    
  522.         }
  523.     else if (timermode == 2) //will clear Cammy's text
  524.         {
  525.         }
  526.     else if (timermode == 3) //will clear Cammy's text and set the switch back to 0;
  527.         {
  528.         timermode = 2;
  529.         settimer(9);
  530.         sendmessage(button_cog, user0);    
  531.         }    
  532.     else if (timermode == 4) //ext. camera             
  533.         {
  534.         dwFreezePlayer();
  535.         SetCameraFocus(0, ghost_cam);
  536.         SetCurrentCamera(0);
  537.         }
  538.     else if (timermode == 5) //Reset camera to player.            
  539.         {
  540.         SetCurrentCamera(7);
  541.         dwunfreezeplayer();
  542.         }
  543.     return;
  544.     
  545. update_bins:
  546.     // this is a utility routine used to turn on and off availability of items. Just until Jon adds it into DW for reals.
  547.         if ( getinv(getlocalplayerthing(),25) > 0) SetInvAvailable(getlocalplayerthing(), 25, 1); //if the sm. bin has more than 0 turn on the inv icon; 
  548.     else SetInvAvailable(getlocalplayerthing(), 25, 0);    // else turn it off;
  549.     
  550.         if ( getinv(getlocalplayerthing(),26) > 0) SetInvAvailable(getlocalplayerthing(), 26, 1); //if the md. bin has more than 0 turn on the inv icon; 
  551.     else SetInvAvailable(getlocalplayerthing(), 26, 0);    // else turn it off;
  552.        
  553.         if ( getinv(getlocalplayerthing(),27) > 0) SetInvAvailable(getlocalplayerthing(), 27, 1); //if the lg. bin has more than 0 turn on the inv icon; 
  554.     else SetInvAvailable(getlocalplayerthing(), 27, 0);    // else turn it off;
  555.     return;
  556. end
  557.  
  558.